home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / AutoFX / Text.ifx.pre < prev    next >
Text File  |  1996-03-02  |  1KB  |  53 lines
  1. /*
  2.  * Text.ifx.pre
  3.  * Written by Thomas Krehbiel
  4.  *
  5.  * Generate text.
  6.  *
  7.  * Inputs:
  8.  *    Word(Arg(1),1) = Sequence number
  9.  *    Word(Arg(1),2) = Total number of frames (N)
  10.  *
  11.  * Returns:
  12.  *    0 if successful, non-zero on failure
  13.  *
  14.  */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. base  = 'Autofx_Text_'
  19.  
  20. txt   = GETCLIP(base||'Text')
  21. font  = GETCLIP(base||'Font')
  22. size  = GETCLIP(base||'Size')
  23. x     = GETCLIP(base||'X')
  24. y     = GETCLIP(base||'Y')
  25. shad  = GETCLIP(base||'Shadow')
  26.  
  27. IF txt = "" THEN txt = "Sample Text"
  28. IF font = "" THEN font = "Helvetica.font"
  29. IF size = "" THEN size = 15
  30. IF x = "" THEN x = -1
  31. IF y = "" THEN y = -1
  32. IF shad = "" THEN shad = 1
  33.  
  34. Gadget.1 = 'STRING  100  5 250 14 "Text:"' '"'txt'"'
  35. Gadget.2 = 'STRING  100 20 150 14 "Font:"' '"'font'"'
  36. Gadget.3 = 'INTEGER 300 20  50 14 "Size:"' size
  37. Gadget.4 = 'INTEGER 100 35  50 14 "Position X:"' x
  38. Gadget.5 = 'INTEGER 200 35  50 14 "Y:"' y
  39. Gadget.6 = 'CHECK   100 52  26 11 "Create Drop Shadow?"' shad
  40. Gadget.7 = 'END'
  41.  
  42. NewComplexRequest '"Text Parameters"' Gadget 380 70
  43. IF rc ~= 0 THEN EXIT rc
  44.  
  45. CALL SETCLIP(base||'Text', result.1)
  46. CALL SETCLIP(base||'Font', result.2)
  47. CALL SETCLIP(base||'Size', result.3)
  48. CALL SETCLIP(base||'X', result.4)
  49. CALL SETCLIP(base||'Y', result.5)
  50. CALL SETCLIP(base||'Shadow', result.6)
  51.  
  52. EXIT
  53.